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Request Packet from VT Server to host system 
00500000000000000054376200033111000001111000000010000Y 

Response Packet from host system to VT Server 
005800000000000000543762033111000001111000+000075000+0000725 
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1 . if ( !FAILED( spElement->getElementsByTagName( 

2. LTogMessageln", &spNodes ) ) && spNodes ) 

3. { 

4. long ILength = 0; 

5. if ( FAILED( spNodes->get_length(&ILength))) 

6. { 

7. return ; 

8. } 

9. CString sText; 

10. for ( long i = 0 ; i < ILength ) 

11. { 

12. spNode.ReleaseQ; 

13. if ( IFAILED ( spNodes->get_item( i , &spNode ) ) ) 

14. { 

1 5. CheckOutputLine( 0, spNode ); 

1 6. GetAttribute( spNode , Lid", sText ); 

17. if(m_bDoVB) 

18. { 

1 9. sText = _T("Sub LogMessageln_")+ sText + _T("( vtObj as VTMsgObj )"); 

20. OutputLine( 0 , sText ); 

21. Outputl_ine( 0, _T("\r\n") ); 

22. Outputl_ine( 1 , _T("Temp variables used by routineW)); 

23. OutputLine( 1 , _T("Dim sTmp As String\r\n") ); 

24. OutputLine( 1 , _T("Dim sTmp4 As String\r\n") ); 

25. OutputLine( 1 , _T("Dim sTmp5 As String\r\n") ); 

26. OutputLine( 1 , __T("Dim sTmp3 As StringW) ); 

27. Outputl_ine( 1 , _T("Dim sTmp2 As String\r\n") ); 

28. OutputLine( 1 , _T("Dim sCmp As String\r\n") ); 
29 Outputl_ine( 1 , _T("Dim iOffset As integer\r\n") ); 
30. OutputLine( 1 , _T("\r\n")); 

31 Outputl_ine( 1, _T("On Error Goto ErrOut\r\n") ); 

32. OutputLine(1,_T("\r\n")); 

33. } else 

34. { 

35. AddCFunction( "LogMessagelnJ' + sTexl); 

36 sText = _T("void MsgHandler::LogMessageln_") + sText; 

37'. sText += _T("( IDualVTMsgObj * vtObj )\r\n{Vr\n\ttry {\r\n"); 

38. OutputLine( 0 , sText ); 

39. Output!_ine( 0, _T("\r\n n ) ); 

40. Outputl_ine( 1 , _T(7/T emp variables used byroutine\r\n")); 
41 1 Outputl_ine( 1 , _T("CComBSTR sTmp;\r\n") ); 

42. OutputLine( 1 , JT("CComBSTR sTmp2;\r\n") ); 

43. OutputLine( 1 , _T("CComBSTR sTmp3;\r\n") ); 

44. OutputLine( 1 , _T("CComBSTR sTmp5;\n") ); 
45 OutputLine( 1 , _T("CComBS"IR sTmp4;\n M ) ); 
46. OutputLine( 1 , _T("CComBSTR sCmp;\r\n") ); 

47 OutputLine( 1 , _T("int iOffset = 0, iLastPos = 0;\An") ); 

48. Outputl_ine( 1 , _T("\r\n")); 

49. OutputLine( 1 , _T(7/End of temp variables\r\n")); 

50. OutputLine( 1 , _T( W)); 

51. } 

52. m_bProcessingGetResponseCode += 1 ; 

53. ProcessMessageln( 1 , spNode ); 

54 m_bProcessingGetResponseCode -= 1 ; 

55. if(m_bDoVB) 

56. { 

57. Outputl_ine(0, _T("ErrOut:\r\n")); 

58. OutputLine(1 , JTvtObj.EndSetErra Err.Number, Err.Description\r\n")); 

59. } 
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1. void CXMLEditDoc::ProcessMessageln( int iTablndex, CComPtr<IXMLDOMNode>& 
spParentNode, BOOL blnBuildField, BOOL *blfWasProccessed ) 



2. { 

3. CComPtr<IXMLDOMNode> spChild; 

4. if ( FAILED( spParentNode->getJirstChild( &spChi!d)) || IspChild ) 

5. { 

6. retu rn; 
7- } 

8. CComPtr<IXMLDOMNodeList> spList = NULL; 

9. if ( !FAILED( spParentNode->get_chi!dNodes( &spList ) ) && spList ) 

10. { 

1 1 . CComBSTR sNodeName; 

12. CComBSTR sText; 

1 3. CComPtr<IXMLDOMNode> spNode; 

14. long ILength = 0; 

15. spList->get_lengt h(&lLength); 

1 6. for ( long i = 0 ; i < ILength ; i++ ) 

17. { 

18. spNode.Release(); 

19. sText.EmptyO; 

20. sNodeName.EmptyO; 

21 . if ( ! FAILED ( spList->get_item( i , &spNode ) ) ) 

22. { 

23. spNode->get_nodeName( &sNodeName ); 

24. Che ckOutputLine( iTablndex, spNode ); 

25. void *ptr = NULL; 

26. CString strNodeName = sNodeName; 

27. strNodeName.MakeUpper(); 

28. // now the ugly look up table 

29. glb_MapOfXMLStringsTolds.Lookup( strNodeName, ptr ); 

30. int id = (int) ptr; 

31. switch (id) 

32. { 
* 

* 

56. case IDTAG_BitmapDateln: 

57. { 

58. CString sBitPos; 

59. CString sLen; 

60. CString sTranField; 

{ 

74. OutputLine( iTablndex, _T("lf 



vtObi.lsBitmapPositionSet( ") , _T("if (lsBitmapPositionSet( vtObj, ")); 

OutputLine( 0, sBitPos ); 

OutputLine( 0, _T(") Then\r\n") , _T(")) {\r\n") ); 

iTablndex += 1 ; 

// first lets get the data 

CheckForPackedAttribute( iTablndex, spNode ); 
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